home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / clisp_c.zoo / format.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1993-06-05  |  46.4 KB  |  889 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 14. LISP:T 210292.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "SYSTEM")
  3. #Y(#:TOP-LEVEL-FORM-2
  4.    #307Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 D7 D8 D7 5C 5B D9 6B 04 00 30
  5.          9C DA 2F 5F DB 2F 5F DC 2D 01 DC DD 30 96 DE 2F 5F DF 2F 5F E0 2D 01
  6.          E0 E1 30 96 E2 2F 5F E3 2F 5F E4 2D 01 E4 E5 30 96 E6 2F 5F E7 2F 5F
  7.          E8 2D 01 E8 E9 30 96 5D 16 2F 5F 5D 17 2F 5F 5D 18 2D 01 5D 18 5D 19
  8.          30 96 5D 1A 2F 5F 5D 1B 2F 5F 5D 1C 2D 01 5D 1C 5D 1D 30 96 5D 1E 2F
  9.          5F 5D 1F 2F 5F 5D 20 2D 01 5D 20 5D 21 30 96 5D 22 2F 5F 5D 23 2F 5F
  10.          5D 24 2D 01 5D 24 5D 25 30 96 DC 5D 26 5D 27 03 28 72 30 9C DC 5D 29
  11.          5B 2B 03 2A E0 5D 26 5D 27 03 2B 72 30 9C E0 5D 29 5B 2B 03 2A E4 5D
  12.          26 5D 27 03 2C 72 30 9C E4 5D 29 5B 2B 03 2A E8 5D 26 5D 27 03 2D 72
  13.          30 9C E8 5D 29 5B 2B 03 2A 5D 18 5D 26 5D 27 03 2E 72 30 9C 5D 18 5D
  14.          29 5B 2B 03 2A 5D 1C 5D 26 5D 27 03 2F 72 30 9C 5D 1C 5D 29 5B 2B 03
  15.          2A 5D 20 5D 26 5D 27 03 30 72 30 9C 5D 20 5D 29 5B 2B 03 2A 5D 24 5D
  16.          26 5D 27 03 31 72 30 9C 5D 24 5D 29 5B 2B 03 2A D7 5D 32 5B 2B 03 2A
  17.          D7 5D 33 30 9D C1 19 01
  18.         )
  19.    MAKE-CSD REMOVE-OLD-DEFINITIONS
  20.    #Y(MAKE-CSD
  21.       #61Y(00 00 00 00 00 01 D4 D5 6A 55 D4 A9 D6 D7 30 54 D4 A9 D8 D7 30 54 D4
  22.            A9 D9 5B 30 54 D4 A9 DA 5B 30 54 D4 A9 DB 5B 30 54 D4 A9 DC 5B 30 54
  23.            D4 A9 DD 5B 30 54 D4 A9 DE 5B 30 54 15 19 01
  24.           )
  25.       CONTROL-STRING-DIRECTIVE 9. 1. 0. 2. 3. 4. 5. 6. 7. 8.
  26.      )
  27.    CONTROL-STRING-DIRECTIVE DEFSTRUCT-DESCRIPTION
  28.    ((TYPE 1. 0. FIXNUM NIL) (CS-INDEX 2. 0. FIXNUM NIL)
  29.     (PARM-LIST 3. NIL LIST NIL) (V-OR-#-P 4. NIL SYMBOL NIL)
  30.     (COLON-P 5. NIL SYMBOL NIL) (ATSIGN-P 6. NIL SYMBOL NIL)
  31.     (DATA 7. NIL T NIL) (CLAUSE-CHAIN 8. NIL T NIL)
  32.    )
  33.    (FUNCTION CSD-TYPE (CONTROL-STRING-DIRECTIVE) FIXNUM) (INLINE CSD-TYPE)
  34.    CSD-TYPE
  35.    #Y(CSD-TYPE #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02)
  36.       CONTROL-STRING-DIRECTIVE 1.
  37.      )
  38.    (FUNCTION CSD-CS-INDEX (CONTROL-STRING-DIRECTIVE) FIXNUM)
  39.    (INLINE CSD-CS-INDEX) CSD-CS-INDEX
  40.    #Y(CSD-CS-INDEX #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02)
  41.       CONTROL-STRING-DIRECTIVE 2.
  42.      )
  43.    (FUNCTION CSD-PARM-LIST (CONTROL-STRING-DIRECTIVE) LIST)
  44.    (INLINE CSD-PARM-LIST) CSD-PARM-LIST
  45.    #Y(CSD-PARM-LIST #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02)
  46.       CONTROL-STRING-DIRECTIVE 3.
  47.      )
  48.    (FUNCTION CSD-V-OR-#-P (CONTROL-STRING-DIRECTIVE) SYMBOL)
  49.    (INLINE CSD-V-OR-#-P) CSD-V-OR-#-P
  50.    #Y(CSD-V-OR-#-P #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02)
  51.       CONTROL-STRING-DIRECTIVE 4.
  52.      )
  53.    (FUNCTION CSD-COLON-P (CONTROL-STRING-DIRECTIVE) SYMBOL)
  54.    (INLINE CSD-COLON-P) CSD-COLON-P
  55.    #Y(CSD-COLON-P #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02)
  56.       CONTROL-STRING-DIRECTIVE 5.
  57.      )
  58.    (FUNCTION CSD-ATSIGN-P (CONTROL-STRING-DIRECTIVE) SYMBOL)
  59.    (INLINE CSD-ATSIGN-P) CSD-ATSIGN-P
  60.    #Y(CSD-ATSIGN-P #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02)
  61.       CONTROL-STRING-DIRECTIVE 6.
  62.      )
  63.    (FUNCTION CSD-DATA (CONTROL-STRING-DIRECTIVE) T) (INLINE CSD-DATA) CSD-DATA
  64.    #Y(CSD-DATA #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02)
  65.       CONTROL-STRING-DIRECTIVE 7.
  66.      )
  67.    (FUNCTION CSD-CLAUSE-CHAIN (CONTROL-STRING-DIRECTIVE) T)
  68.    (INLINE CSD-CLAUSE-CHAIN) CSD-CLAUSE-CHAIN
  69.    #Y(CSD-CLAUSE-CHAIN #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02)
  70.       CONTROL-STRING-DIRECTIVE 8.
  71.      )
  72.    SETF-EXPANDER -1.
  73.    #Y(SETF-CSD-TYPE
  74.       #22Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 D7 D8 B0 73 03 59 05 19 04)
  75.       %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 1. THE FIXNUM
  76.      )
  77.    SETF %SET-DOCUMENTATION
  78.    #Y(SETF-CSD-CS-INDEX
  79.       #22Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 D7 D8 B0 73 03 59 05 19 04)
  80.       %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 2. THE FIXNUM
  81.      )
  82.    #Y(SETF-CSD-PARM-LIST
  83.       #22Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 D7 D8 B0 73 03 59 05 19 04)
  84.       %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 3. THE LIST
  85.      )
  86.    #Y(SETF-CSD-V-OR-#-P
  87.       #22Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 D7 D8 B0 73 03 59 05 19 04)
  88.       %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 4. THE SYMBOL
  89.      )
  90.    #Y(SETF-CSD-COLON-P
  91.       #22Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 D7 D8 B0 73 03 59 05 19 04)
  92.       %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 5. THE SYMBOL
  93.      )
  94.    #Y(SETF-CSD-ATSIGN-P
  95.       #22Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 D7 D8 B0 73 03 59 05 19 04)
  96.       %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 6. THE SYMBOL
  97.      )
  98.    #Y(SETF-CSD-DATA #18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
  99.       %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 7.
  100.      )
  101.    #Y(SETF-CSD-CLAUSE-CHAIN
  102.       #18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04)
  103.       %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 8.
  104.      )
  105.    STRUCTURE STRUCTURE-PRINT
  106.   )
  107. #Y(#:TOP-LEVEL-FORM-3 #12Y(00 00 00 00 00 01 D4 D5 30 9D 19 01)
  108.    CONTROL-STRING-DIRECTIVE DEFSTRUCT-DESCRIPTION
  109.   )
  110. #Y(#:TOP-LEVEL-FORM-4 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  111.    WHITESPACEP REMOVE-OLD-DEFINITIONS
  112.    #Y(WHITESPACEP #14Y(00 01 00 00 00 02 A9 D4 36 03 2F DC 19 02)
  113.       (#\Space #\Newline #\Newline #\Tab #\Return #\Page)
  114.   )  )
  115. #Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  116.    FORMAT-PARSE-CS REMOVE-OLD-DEFINITIONS
  117.    #Y(FORMAT-PARSE-CS
  118.       #609Y(00 04 00 00 00 05 AB 01 03 8B 06 1A 82 39 B1 78 63 04 14 D6 AB D9
  119.             AB 30 54 16 01 8A 06 82 3C 1A 82 31 B1 AD 77 35 03 14 23 00 27 AF
  120.             2C 01 EC 14 73 01 77 D3 07 D6 AA D7 D7 30 54 D6 AA D8 AF 30 54 D4
  121.             B2 36 06 9E EE 78 7B 04 1C 42 D6 AA D9 AF 30 54 AF 2C 01 EC 14 73
  122.             01 77 D3 07 D6 AA D7 D8 30 54 D6 AA D8 AF 30 54 D6 AA DA 5B 30 54
  123.             D6 AA DB 5B 30 54 D6 AA DC 5B 30 54 D6 AA DD 5B 30 54 D6 AA D9 5B
  124.             30 54 D6 AA DE 5B 30 54 1A 35 95 25 0D 80 DD CD 1A 05 AB 23 0E 79
  125.             CE 14 A8 D6 AC DA 30 53 72 D6 AC DA AB 30 54 16 02 D6 AA DB 5C 30
  126.             54 1A 80 71 5B D6 AB DA 30 53 72 D6 AB DA AB 30 54 16 01 7C 04 14
  127.             B2 6A 63 87 01 30 80 8C B1 AD 77 35 03 14 36 01 84 24 FF B4 B1 AD
  128.             36 02 5C 2F 84 3E 02 62 05 62 02 1B 07 B1 AD E5 AE 2B 04 0C AA D6
  129.             AB DA 30 53 72 D6 AB DA AB 30 54 16 01 1A 26 B1 AD D0 1A 80 56 7C
  130.             04 14 B2 6A 63 87 01 30 70 B1 AD 77 35 03 14 D6 AB DA 30 53 72 D6
  131.             AB DA AB 30 54 16 01 7C 04 AC B2 6A 63 87 01 30 2B B1 AD 77 35 03
  132.             25 13 39 D6 AA C6 1A 10 B1 AD 77 35 03 14 23 14 72 AB 24 15 27 D6
  133.             AA C7 14 5C 30 54 7C 04 14 B2 6A 63 88 01 30 62 B1 AD C9 14 2B 03
  134.             0C 8A 06 80 F6 1A 80 EB D6 AB D9 AB 30 54 1A 23 D6 AA DA 6A 53 6A
  135.             65 D6 AB DA AB 30 54 16 01 AB 69 2C 5D 16 36 03 2F E3 71 89 00 5C
  136.             B2 AE 5D 17 2B 03 0C 16 01 7C 04 95 25 18 80 AB B1 AD B1 98 25 19
  137.             10 03 1A 1A 0D 03 1B 1A 09 03 1C 1A 05 03 1D 1A 01 00 14 26 FE 4E
  138.             3E 02 62 08 62 04 1A 80 86 89 06 08 B1 AD 5D 1E AE 2B 04 0C AB AF
  139.             85 28 09 B1 AD 5D 1F AE B2 2B 05 0C D6 A9 DE B2 30 54 1A 80 78 AE
  140.             23 1B 0B AE 23 1D 07 B1 AD 5D 20 2B 03 0C D6 A9 DE B2 30 54 93 EA
  141.             1A 80 4A D6 AA DD 86 53 80 43 B1 AD 5D 22 2B 03 0C 1A 3A B1 78 63
  142.             04 1A 34 D6 AA D7 5D 21 30 54 D6 AA DC 85 53 5D D6 AA DD 86 53 16
  143.             D6 AA D7 D7 30 54 8E 04 D6 AB D8 AB 30 54 16 01 D6 AA D9 AF 30 54
  144.             90 23 B2 36 04 9C EC 86 7D 47 EE AC B2 6A 63 88 01 30 FD D2 8A 06
  145.             08 B1 AD 5D 24 B1 2B 04 0C AC B0 3C 02 19 0A
  146.            )
  147.       #\~ MAKE-CSD CONTROL-STRING-DIRECTIVE 1. 2. 7. 3. 4. 5. 6. 8.
  148.       "The control string terminates within a directive." FORMAT-ERROR
  149.       #S(HASH-TABLE EQ (#\@ . 184.) (#\: . 166.) (#\, . 35.) (#\# . 5.)
  150.          (#\v . 5.) (#\V . 5.) (#\' . 118.) (#\- . 73.) (#\+ . 73.)
  151.         )
  152.       #\# :ARG-COUNT :NEXT-ARG "~A must introduce a number."
  153.       "The control string terminates in the middle of a parameter."
  154.       #S(HASH-TABLE EQ (#\@ . 19.) (#\: . 1.) (#\, . -115.)) #\: #\@
  155.       ((#\A . FORMAT-ASCII) (#\S . FORMAT-S-EXPRESSION) (#\W . FORMAT-WRITE)
  156.        (#\D . FORMAT-DECIMAL) (#\B . FORMAT-BINARY) (#\O . FORMAT-OCTAL)
  157.        (#\X . FORMAT-HEXADECIMAL) (#\R . FORMAT-RADIX) (#\P . FORMAT-PLURAL)
  158.        (#\C . FORMAT-CHARACTER) (#\F . FORMAT-FIXED-FLOAT)
  159.        (#\E . FORMAT-EXPONENTIAL-FLOAT) (#\G . FORMAT-GENERAL-FLOAT)
  160.        (#\$ . FORMAT-DOLLARS-FLOAT) (#\% . FORMAT-TERPRI)
  161.        (#\& . FORMAT-FRESH-LINE) (#\Newline . #\Newline) (#\| . FORMAT-PAGE)
  162.        (#\~ . FORMAT-TILDE) (#\T . FORMAT-TABULATE) (#\* . FORMAT-GOTO)
  163.        (#\? . FORMAT-INDIRECTION) (#\( . FORMAT-CASE-CONVERSION)
  164.        (#\) . FORMAT-CASE-CONVERSION-END) (#\[ . FORMAT-CONDITIONAL)
  165.        (#\] . FORMAT-CONDITIONAL-END) (#\{ . FORMAT-ITERATION)
  166.        (#\} . FORMAT-ITERATION-END) (#\< . FORMAT-JUSTIFICATION)
  167.        (#\> . FORMAT-JUSTIFICATION-END) (#\^ . FORMAT-UP-AND-OUT)
  168.        (#\; . FORMAT-SEPARATOR)
  169.       )
  170.       "Non-existent directive"
  171.       #S(HASH-TABLE EQ (#\Newline . 121.) (#\; . 73.) (#\> . 39.) (#\} . 39.)
  172.          (#\] . 39.) (#\) . 39.) (#\< . 2.) (#\{ . 2.) (#\[ . 2.) (#\( . 2.)
  173.         )
  174.       #S(HASH-TABLE EQ (#\< . 13.) (#\{ . 9.) (#\[ . 5.) (#\( . 1.)) #\) #\]
  175.       #\} #\>
  176.       "The closing directive '~A' does not have a corresponding opening one."
  177.       "The closing directive '~A' does not match the corresponding opening one. It should read '~A'."
  178.       "The ~~; directive is not allowed at this point." 0.
  179.       "The ~~newline directive cannot take both modifiers." WHITESPACEP
  180.       "An opening directive is never closed; expecting '~A'."
  181.   )  )
  182. #Y(#:TOP-LEVEL-FORM-6 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
  183.    (SPECIAL *FORMAT-CS*) *FORMAT-CS*
  184.   )
  185. #Y(#:TOP-LEVEL-FORM-7 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
  186.    (SPECIAL *FORMAT-CSDL*) *FORMAT-CSDL*
  187.   )
  188. #Y(#:TOP-LEVEL-FORM-8 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
  189.    (SPECIAL *FORMAT-ARG-LIST*) *FORMAT-ARG-LIST*
  190.   )
  191. #Y(#:TOP-LEVEL-FORM-9 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
  192.    (SPECIAL *FORMAT-NEXT-ARG*) *FORMAT-NEXT-ARG*
  193.   )
  194. #Y(#:TOP-LEVEL-FORM-10
  195.    #20Y(00 00 00 00 00 01 D4 2F 5F D5 83 53 04 D5 5B 2F 56 BF 19 01)
  196.    (SPECIAL *FORMAT-UP-AND-OUT*) *FORMAT-UP-AND-OUT*
  197.   )
  198. #Y(#:TOP-LEVEL-FORM-11 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  199.    FORMAT-ERROR REMOVE-OLD-DEFINITIONS
  200.    #Y(FORMAT-ERROR
  201.       #112Y(00 03 00 00 01 19 89 03 0B 0E 00 70 D5 A9 D6 30 53 16 01 ED AA D7
  202.             79 02 13 02 D8 D8 1A 04 A8 78 AB 01 D9 AF 36 06 9B EE 85 7B 03 AE
  203.             30 63 EA AC DA 79 02 13 04 AB AF AB AB 69 50 73 01 79 02 21 03 A9
  204.             AE AA 88 02 2F 16 AC DB 79 02 13 04 AB D6 AF AC 6B 01 34 6B 02 33
  205.             73 01 79 02 21 03 A8 AF 6A 63 88 01 2B FF B7 16 02 DC AB 95 35 01
  206.             19 05
  207.            )
  208.       *FORMAT-CSDL* CONTROL-STRING-DIRECTIVE 2.
  209.       "~%Current point in control string:" 0. #\Newline "~%  ~A" "~%~VT⇧"
  210.       #.#'ERROR
  211.   )  )
  212. #Y(#:TOP-LEVEL-FORM-12 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  213.    FORMAT REMOVE-OLD-DEFINITIONS
  214.    #Y(FORMAT
  215.       #107Y(00 02 00 00 01 18 AA 86 2E 2E AA 73 01 AB D5 AA 5B 2B 04 02 92 53
  216.             10 03 95 54 10 04 9A 10 05 0E 05 10 06 00 10 07 8A 13 13 BB 02 21
  217.             1D BB 86 3E 20 A5 14 2D 08 00 1A 2F D4 AB 5A 01 36 01 6A 8B A8 2D
  218.             08 A8 30 8C 16 01 1A 1D 0E 09 1A 64 C8 1A 05 BB 85 2E 05 C9 14 BC
  219.             5A 01 BB 84 15 70 BB 6A 8D A8 2D 08 16 01 00 12 05 19 05
  220.            )
  221.       "The control-string must be a string, not ~S" 0. FORMAT-PARSE-CS
  222.       *FORMAT-CS* *FORMAT-CSDL* *FORMAT-ARG-LIST* *FORMAT-NEXT-ARG*
  223.       *FORMAT-UP-AND-OUT* FORMAT-INTERPRET *STANDARD-OUTPUT*
  224.       "The destination string ~S should have a fill pointer."
  225.       "The destination argument ~S is invalid (not NIL or T or a stream or a string)."
  226.   )  )
  227. #Y(#:TOP-LEVEL-FORM-13 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  228.    NEXT-ARG REMOVE-OLD-DEFINITIONS
  229.    #Y(NEXT-ARG
  230.       #30Y(00 00 00 00 00 01 0E 00 1F 0B 0E 00 70 0E 00 54 0F 00 15 19 01 63 01
  231.            5B D6 2B 03 03 19 01
  232.           )
  233.       *FORMAT-NEXT-ARG* *FORMAT-CS*
  234.       "There are not enough arguments left for this directive." FORMAT-ERROR
  235.   )  )
  236. #Y(#:TOP-LEVEL-FORM-14 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  237.    FORMAT-INTERPRET REMOVE-OLD-DEFINITIONS
  238.    #Y(FORMAT-INTERPRET
  239.       #116Y(00 01 00 01 00 08 37 01 08 74 01 0E 00 1C 06 1A 09 0E 00 1B 05 63
  240.             01 84 B6 14 00 19 03 63 05 AD D6 AC DA 6A 53 D6 AD DB 6A 53 2F 8E
  241.             1A 37 0E 01 70 D6 A9 D7 6A 53 A8 23 04 2B A8 23 03 5F A8 24 06 23
  242.             D6 AA DB 6A 53 A8 97 21 04 A8 24 08 03 00 19 06 A8 AE D6 AD DD 6A
  243.             53 D6 AE DE 6A 53 AE 2D 0B 35 03 16 01 16 02 0E 01 54 0F 01 0E 00
  244.             1C FF A4 1A FF A6
  245.            )
  246.       *FORMAT-UP-AND-OUT* *FORMAT-CSDL* CONTROL-STRING-DIRECTIVE 1. 0.
  247.       *FORMAT-CS* 2. 7. FORMAT-SEPARATOR 5. 6. FORMAT-RESOLVE-PARMS
  248.   )  )
  249. #Y(#:TOP-LEVEL-FORM-15 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  250.    FORMAT-RESOLVE-PARMS REMOVE-OLD-DEFINITIONS
  251.    #Y(FORMAT-RESOLVE-PARMS
  252.       #62Y(00 01 00 00 00 02 D4 AA D5 6A 53 D4 AB D6 85 53 03 15 19 02 5B A9 1A
  253.            1C 2C 04 1A 11 63 06 2F B7 1A 0B 8B 00 A8 23 03 70 A8 23 05 70 92 14
  254.            7B 02 16 01 7A 00 92 20 6B 16 01 A8 2F CC 19 04
  255.           )
  256.       CONTROL-STRING-DIRECTIVE 3. 4. :NEXT-ARG NEXT-ARG :ARG-COUNT
  257.       *FORMAT-NEXT-ARG*
  258.   )  )
  259. #Y(#:TOP-LEVEL-FORM-16 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  260.    FORMAT-GOTO-NEW-ARG REMOVE-OLD-DEFINITIONS
  261.    #Y(FORMAT-GOTO-NEW-ARG
  262.       #39Y(00 02 00 00 00 03 89 02 0A A9 0E 01 14 2F C4 0F 01 19 03 63 00 69 B7
  263.            63 01 69 B7 AB 6B 02 34 D6 6B 01 31 0E 00 1A 65
  264.           )
  265.       *FORMAT-ARG-LIST* *FORMAT-NEXT-ARG* 0.
  266.   )  )
  267. #Y(#:TOP-LEVEL-FORM-17 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  268.    FORMAT-OLD-ROMAN REMOVE-OLD-DEFINITIONS
  269.    #Y(FORMAT-OLD-ROMAN
  270.       #74Y(00 02 00 00 00 03 AA 86 35 07 D4 AB D5 87 02 2F 08 63 02 5B D7 AD 2B
  271.            04 04 D9 DA AC 1A 25 8C 02 8C 02 AA 8B 04 30 C8 3E 02 DB 1A 07 8B 07
  272.            B2 2F 8D 7C 00 A8 AB 88 01 30 73 16 01 15 16 01 EC 62 02 62 02 A8 86
  273.            A6 57 00 19 06
  274.           )
  275.       1. 4999. *FORMAT-CS*
  276.       "The ~~:@R directive requires an integer in the range 1 - 4999, not ~S"
  277.       FORMAT-ERROR (#\M #\D #\C #\L #\X #\V #\I)
  278.       (1000. 500. 100. 50. 10. 5. 1.) 0.
  279.   )  )
  280. #Y(#:TOP-LEVEL-FORM-18 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  281.    FORMAT-NEW-ROMAN REMOVE-OLD-DEFINITIONS
  282.    #Y(FORMAT-NEW-ROMAN
  283.       #116Y(00 02 00 00 00 03 AA 86 35 07 D4 AB D5 87 02 2F 08 63 02 5B D7 AD
  284.             2B 04 04 D9 DA DB DC AE 1A 80 4B 8C 04 8C 04 8C 04 8C 04 AC 8B 08
  285.             30 C8 3E 02 DD 1A 18 8B 09 B6 2F 8D 8B 0B B6 2F 8D A9 A9 31 01 34
  286.             1A 1D 8B 0B B6 2F 8D 7C 00 A8 AB 88 01 30 73 16 01 8B 09 8B 08 6B
  287.             01 34 A9 A9 87 01 30 53 93 16 03 EE 62 04 62 04 62 04 62 04 A8 86
  288.             A6 FF B0 00 19 08
  289.            )
  290.       1. 3999. *FORMAT-CS*
  291.       "The ~~@R directive requires an integer in the range 1 - 3999, not ~S"
  292.       FORMAT-ERROR (#\M #\D #\C #\L #\X #\V #\I)
  293.       (1000. 500. 100. 50. 10. 5. 1.) (#\C #\C #\X #\X #\I #\I)
  294.       (100. 100. 10. 10. 1. 1. 0.) 0.
  295.   )  )
  296. #Y(#:TOP-LEVEL-FORM-19
  297.    #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
  298.         19 01
  299.        )
  300.    FORMAT-CARDINAL-ONES "~S redefines the constant ~S. Its old value was ~S."
  301.    (DEFCONSTANT FORMAT-CARDINAL-ONES
  302.     '#1=#(NIL "one" "two" "three" "four" "five" "six" "seven" "eight" "nine"
  303.           "ten" "eleven" "twelve" "thirteen" "fourteen" "fifteen" "sixteen"
  304.           "seventeen" "eighteen" "nineteen"
  305.    )     )
  306.    WARN #1#
  307.   )
  308. #Y(#:TOP-LEVEL-FORM-20
  309.    #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
  310.         19 01
  311.        )
  312.    FORMAT-CARDINAL-TENS "~S redefines the constant ~S. Its old value was ~S."
  313.    (DEFCONSTANT FORMAT-CARDINAL-TENS
  314.     '#1=#(NIL NIL "twenty" "thirty" "forty" "fifty" "sixty" "seventy" "eighty"
  315.           "ninety"
  316.    )     )
  317.    WARN #1#
  318.   )
  319. #Y(#:TOP-LEVEL-FORM-21 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  320.    FORMAT-SMALL-CARDINAL REMOVE-OLD-DEFINITIONS
  321.    #Y(FORMAT-SMALL-CARDINAL
  322.       #103Y(00 02 00 00 00 03 AA D4 30 CA 3E 02 A9 D5 88 01 2E 0F D6 94 57 14
  323.             AC 36 02 2F 8E D7 AC 36 02 2F 8E A8 D5 88 01 2E 3D A9 D5 88 01 2E
  324.             06 D8 AC 36 02 2F 8E A8 D9 30 CA 3E 02 A9 DA 87 01 2D 1E DB 94 57
  325.             14 AE 36 02 2F 8E A8 D5 88 01 2E 13 DC AE 2F 8D D6 93 57 14 AE 36
  326.             02 2F 8E 19 07 D6 95 1A 73 00 19 07 00 19 05
  327.            )
  328.       100. 0. #.FORMAT-CARDINAL-ONES " hundred" " and " 10. 2.
  329.       #.FORMAT-CARDINAL-TENS #\-
  330.   )  )
  331. #Y(#:TOP-LEVEL-FORM-22 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  332.    FORMAT-CARDINAL REMOVE-OLD-DEFINITIONS
  333.    #Y(FORMAT-CARDINAL
  334.       #54Y(00 02 00 00 00 03 00 29 01 76 02 00 00 AB 85 A6 1B AB 86 A8 0D D5 60
  335.            01 00 36 02 2F 8E AB 79 00 34 03 A8 65 02 01 D7 AD 94 32 19 05 D4 60
  336.            01 00 36 02 2F 8E 19 04
  337.           )
  338.       "zero" "minus "
  339.       #Y(FORMAT-CARDINAL-BLOCKS1000
  340.          #78Y(00 02 00 00 00 03 8A 02 24 1A 29 A9 D9 88 01 2E 08 DA 61 00 00 36
  341.               02 2F 8E A8 61 00 00 2E 07 8B 04 61 00 00 36 02 2F 8E 19 05 89 02
  342.               07 63 01 5B D6 2B 03 03 A9 D8 30 CA 3E 02 A9 D9 88 01 2E 05 8C 04
  343.               AA 26 65 A8 D9 87 01 2E 40 00 19 05
  344.              )
  345.          NIL *FORMAT-CS* "The argument for the ~~R directive is too large."
  346.          FORMAT-ERROR 1000. 0. ", " FORMAT-SMALL-CARDINAL
  347.         )
  348.       ("" " thousand" " million" " billion" " trillion" " quadrillion"
  349.        " quintillion" " sextillion" " septillion" " octillion" " nonillion"
  350.        " decillion" " undecillion" " duodecillion" " tredecillion"
  351.        " quattuordecillion" " quindecillion" " sexdecillion" " septendecillion"
  352.        " octodecillion" " novemdecillion" " vigintillion"
  353.   )  ))
  354. #Y(#:TOP-LEVEL-FORM-23
  355.    #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
  356.         19 01
  357.        )
  358.    FORMAT-ORDINAL-ONES "~S redefines the constant ~S. Its old value was ~S."
  359.    (DEFCONSTANT FORMAT-ORDINAL-ONES
  360.     '#1=#(NIL "first" "second" "third" "fourth" "fifth" "sixth" "seventh"
  361.           "eighth" "ninth" "tenth" "eleventh" "twelfth" "thirteenth"
  362.           "fourteenth" "fifteenth" "sixteenth" "seventeenth" "eighteenth"
  363.           "nineteenth"
  364.    )     )
  365.    WARN #1#
  366.   )
  367. #Y(#:TOP-LEVEL-FORM-24 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  368.    FORMAT-ORDINAL REMOVE-OLD-DEFINITIONS
  369.    #Y(FORMAT-ORDINAL
  370.       #124Y(00 02 00 00 00 03 AA 85 A6 80 59 AA 86 A8 0B D5 AA 36 02 2F 8E AA
  371.             79 00 34 02 AA D6 30 C8 3E 02 A9 D7 88 01 2E 08 A9 D6 6B 02 35 AC
  372.             2E 04 A8 85 A6 3A A8 DA 30 C8 3E 02 AB D7 88 01 2E 04 DB AE 2F 8D
  373.             A9 DC 87 01 2D 2C A8 85 A6 2C DF 94 57 14 AE 36 02 2F 8E E0 AE 2F
  374.             8D DD 93 57 14 AE 36 02 2F 8E 19 07 D4 AA 36 02 2F 8E 19 03 D9 AC
  375.             36 02 2F 8E 19 05 DD 95 1A 63 DE 94 1A 5F
  376.            )
  377.       "zeroth" "minus " 100. 0. FORMAT-CARDINAL "th" 10. #\Space 2.
  378.       #.FORMAT-ORDINAL-ONES
  379.       #(NIL "tenth" "twentieth" "thirtieth" "fortieth" "fiftieth" "sixtieth"
  380.         "seventieth" "eightieth" "ninetieth"
  381.        )
  382.       #.FORMAT-CARDINAL-TENS #\-
  383.   )  )
  384. #Y(#:TOP-LEVEL-FORM-25 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  385.    FORMAT-PADDING REMOVE-OLD-DEFINITIONS
  386.    #Y(FORMAT-PADDING
  387.       #24Y(00 03 00 00 00 04 D4 1A 06 AB AB 2F 8D 7C 00 A8 AD 88 01 30 74 00 19
  388.            05
  389.           )
  390.       0.
  391.   )  )
  392. #Y(#:TOP-LEVEL-FORM-26 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  393.    FORMAT-PADDED-STRING REMOVE-OLD-DEFINITIONS
  394.    #Y(FORMAT-PADDED-STRING
  395.       #68Y(00 07 00 00 00 00 AA 6A 63 AE 6B 02 33 A8 B1 87 01 2D 1B BE 14 89 05
  396.            06 AC AC 36 02 2F 8E AF A9 6B 02 33 AF AD 2B 03 01 89 05 11 00 19 0A
  397.            B0 A9 6B 01 34 B0 6A C9 B0 31 02 35 1A 58 AC AC 36 02 2F 8E 19 0A
  398.           )
  399.       0. FORMAT-PADDING
  400.   )  )
  401. #Y(#:TOP-LEVEL-FORM-27 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  402.    FORMAT-INTEGER REMOVE-OLD-DEFINITIONS
  403.    #Y(FORMAT-INTEGER
  404.       #172Y(00 08 00 00 00 00 9A 10 00 00 10 01 B5 86 A6 06 89 0A 03 8A 09 36
  405.             B0 69 8C A8 6A 63 B2 85 A8 33 92 14 89 0D 33 C1 14 8A 0D 05 B4 D7
  406.             31 01 2E 14 89 00 2C C1 14 AC AB 6B 03 33 A8 36 01 69 46 8A 02 05
  407.             A8 D7 D9 2F 37 AD AA 1A 80 43 B0 B0 2F 89 1A 80 55 A8 30 AC 1A 49
  408.             8E 00 D6 30 C8 1A 47 C2 1A 52 A8 B7 36 02 2F 8E 16 07 1A 3C 7D 00
  409.             AA A9 B2 AC 69 35 2F 37 AD 86 A7 15 AF AA 6B 01 34 D6 6A CC 86 A6
  410.             0A 7D 00 AA A9 5E 16 2F 37 7D 05 7D 01 14 86 A8 57 16 02 BC 85 A6
  411.             47 BC D8 D7 5E 16 5C AD BC 2B 07 06 16 07 12 02 19 09
  412.            )
  413.       *PRINT-BASE* *PRINT-RADIX* 3. 0. 1. #\+ FORMAT-PADDED-STRING
  414.   )  )
  415. #Y(#:TOP-LEVEL-FORM-28 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  416.    FORMAT-ASCII-DECIMAL REMOVE-OLD-DEFINITIONS
  417.    #Y(FORMAT-ASCII-DECIMAL
  418.       #20Y(00 02 00 00 00 03 BE 10 01 00 10 02 B0 B0 2F 89 12 02 19 03) 10.
  419.       *PRINT-BASE* *PRINT-RADIX*
  420.   )  )
  421. #Y(#:TOP-LEVEL-FORM-29 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  422.    FORMAT-BASE REMOVE-OLD-DEFINITIONS
  423.    #Y(FORMAT-BASE
  424.       #73Y(00 07 00 00 00 00 8A 03 26 8A 02 28 89 01 02 C0 EB 2C 03 14 AC 86 A6
  425.            06 89 06 03 8A 05 1D A8 86 35 19 B0 AD AD AD B2 B2 AE B6 2B 08 06 19
  426.            09 BE ED 89 02 58 BF EC 8A 01 56 1A 56 9A 10 04 00 10 05 AE B6 2F 89
  427.            12 02 19 09
  428.           )
  429.       0. #\Space #\, NEXT-ARG *PRINT-BASE* *PRINT-RADIX* FORMAT-INTEGER
  430.   )  )
  431. #Y(#:TOP-LEVEL-FORM-30 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  432.    FORMAT-SCALE-EXPONENT-AUX REMOVE-OLD-DEFINITIONS
  433.    #Y(FORMAT-SCALE-EXPONENT-AUX
  434.       #94Y(00 06 00 00 00 00 AE 30 D2 3E 02 B0 85 A6 16 A8 AC 6B 02 35 36 01 6A
  435.            CA B1 AF AA 6A AF 6B 01 36 AF A9 AB 1A 14 AF D4 3C 02 19 09 AB AB 79
  436.            01 36 01 7C 00 AA B3 79 02 35 02 A9 B4 88 01 2D 6C B2 AA AA 1A 0E A9
  437.            AB 79 02 35 01 7D 00 AA B6 79 02 35 02 A9 B5 88 01 30 6C A9 A9 3C 02
  438.            19 11
  439.           )
  440.       0.
  441.   )  )
  442. #Y(#:TOP-LEVEL-FORM-31 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  443.    FORMAT-SCALE-EXPONENT REMOVE-OLD-DEFINITIONS
  444.    #Y(FORMAT-SCALE-EXPONENT
  445.       #72Y(00 01 00 00 00 02 A9 85 39 11 A9 85 3A 14 A9 86 3B 17 A9 DE DF E0 CB
  446.            14 C2 1A 24 A9 D4 D5 D6 C1 1A 75 A9 DA DB DC C7 1A 6E A9 86 3C 18 A9
  447.            E2 AB 6A C3 E3 AC 6A C3 E4 AD 6A C3 E5 AE 6A C3 D0 14 2B 06 05 19 02
  448.            00 19 02
  449.           )
  450.       0.0s0 1.0s0 10.0s0 0.1s0 0.30103s0 FORMAT-SCALE-EXPONENT-AUX 0.0 1.0 10.0
  451.       0.1 0.0d0 1.0d0 10.0d0 0.1d0 0. 1. 10. #10r1/10 0.30102999566d0
  452.   )  )
  453. #Y(#:TOP-LEVEL-FORM-32
  454.    #35Y(00 00 00 00 00 01 00 29 01 D4 5C 36 06 BF EF 75 02 2F 1B 0B 00 00 D6 2D
  455.         03 D6 A9 65 04 01 30 96 C0 19 02
  456.        )
  457.    20. STRING-CHAR FORMAT-FLOAT-TO-STRING REMOVE-OLD-DEFINITIONS
  458.    #Y(FORMAT-FLOAT-TO-STRING
  459.       #745Y(00 05 00 00 00 06 AD 85 A6 80 7D AD 30 D8 3E 02 AF 36 01 6A D6 6A
  460.             AC AA D8 D8 D8 D5 D5 D5 01 05 61 00 00 D5 2F 17 B5 D5 87 01 2E 80
  461.             8A B5 D5 88 01 2D 08 D8 B6 6B 00 34 78 E6 0A B6 D8 B6 6A E6 87 01
  462.             2B 80 80 8A 11 1F 14 D5 87 01 2D 80 8C D9 BA 6A AF B4 A9 79 02 35
  463.             0C B1 A9 79 02 35 09 B2 A9 79 02 35 0A 16 01 B3 D9 6B 02 35 B3 87
  464.             01 30 80 90 7D 07 B3 D9 79 02 35 0B B1 D9 79 02 35 09 B0 D9 79 02
  465.             35 08 1A 5F 89 03 01 BF 14 89 02 01 BF 14 6B 01 31 8A 05 0A A8 AE
  466.             88 01 30 04 AD 78 AC 00 8D 00 D6 69 46 A8 D5 D7 2F 37 8D 01 5C AB
  467.             6A A6 D5 3C 05 19 07 B6 B6 78 E6 0B D8 B6 78 E6 09 F2 1A FF 76 B0
  468.             D8 78 E6 08 B3 D8 78 E6 0B B2 D8 78 E6 0A 8A 11 FF 8F 1A FF 6D D9
  469.             BA 6B 00 34 6A AF B3 A9 79 02 35 0B 16 01 1A FF 7A 14 31 00 34 1A
  470.             32 D8 BC 31 01 34 1A 2B B2 D9 79 02 35 0A 7C 07 B3 D8 6A E6 B1 6B
  471.             02 33 B3 D8 6A E6 88 01 2D 68 89 12 58 8A 13 39 AF D5 87 01 2D 55
  472.             AF BC 6B 01 34 30 AB EE 8A 10 28 AC B9 6B 00 34 88 01 2E 1F B8 79
  473.             00 34 04 8A 12 1A 1A 1B D5 1A 08 A9 D9 79 02 35 01 7C 00 A8 AB 88
  474.             01 30 72 16 01 1A 2E 89 12 03 8A 13 3C AC B0 6B 01 34 B3 A9 D5 87
  475.             01 30 59 D5 AA 6B 00 34 1A 0D 75 05 16 02 1A 23 AA D9 78 C9 02 7C
  476.             01 A9 A9 88 01 30 73 16 02 A8 B4 79 01 31 0B A8 B3 79 01 31 0A 14
  477.             A9 87 01 2B 59 16 02 B3 D8 6A E6 B1 6B 02 33 B3 D8 6A E6 88 01 2D
  478.             FF 5E AF D5 88 01 2D 80 78 98 EF D7 61 00 00 36 01 2F 1A D5 B0 6B
  479.             00 34 1A 80 5E B3 D8 6A E6 B3 D8 6A E6 B2 6B 01 34 31 01 30 1A 80
  480.             9A DA AB 69 35 61 00 00 36 01 2F 1A 7C 06 1A 80 44 95 1A 80 BC 95
  481.             1A 80 B8 D5 1A 0C 7C 07 D6 61 00 00 36 01 2F 1A 7C 00 A8 B1 88 01
  482.             30 6E 16 01 D7 61 00 00 36 01 2F 1A 98 EF 8A 12 80 C9 1A 80 A6 7C
  483.             08 D6 61 00 00 36 01 2F 1A 7C 01 A9 A9 88 01 30 6E 16 02 AF 86 A6
  484.             0A D7 61 00 00 36 01 2F 1A 98 EF 7D 07 B3 D9 6B 02 35 B3 30 CA 3E
  485.             02 62 0C 62 02 B1 D9 79 02 35 09 B0 D9 79 02 35 08 B3 D8 6A E6 B2
  486.             79 01 2D 01 89 03 FF 63 B3 D8 6A E6 B3 D8 6A E6 B2 6B 01 34 31 01
  487.             2E EA 89 01 0E 89 00 0B 8A 04 FF 5B AF AD 88 01 2F FF 54 8A 04 06
  488.             AF AD 88 01 30 27 DB 8A 02 04 8A 01 FF 53 8A 01 03 8A 02 0A B4 D8
  489.             6A E6 B4 87 01 2F FF 47 AB 30 AB 14 69 35 61 00 00 36 01 2F 1A 7C
  490.             06 AF D5 87 01 30 FF 35 8A 12 20 D5 BB B0 B0 6B 01 34 6B 01 34 1A
  491.             0C 7C 08 D6 61 00 00 36 01 2F 1A 7C 01 A9 A9 88 01 30 6E 16 02 61
  492.             00 00 8D 07 AF D5 6B 01 2B B0 B2 6B 01 2B B1 3C 05 19 15
  493.            )
  494.       NIL 0. #\0 #\. 1. 10. "0123456789" "0123456789"
  495.   )  )
  496. #Y(#:TOP-LEVEL-FORM-33 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  497.    FORMAT-FLOAT-FOR-F REMOVE-OLD-DEFINITIONS
  498.    #Y(FORMAT-FLOAT-FOR-F
  499.       #198Y(00 08 00 00 00 00 89 08 80 57 00 14 AB A9 B2 B2 5B 2B 05 00 3E 04
  500.             B4 23 01 80 51 8A 0D 0E AC AB 79 01 34 04 89 01 80 5E 89 00 80 66
  501.             8A 0A 08 8A 0D 05 AC 85 A8 80 6A 8A 0D 0C AC D5 88 01 2E 06 AC B2
  502.             B0 2B 03 02 AF 85 A8 80 5E 8A 08 80 64 C2 14 AF 2F 8D 8A 01 80 62
  503.             1A 80 5B B0 30 AC 1A FF AA 89 03 77 AA 85 A8 73 9A 1A FF 9F 74 00
  504.             8A 0D FF BA 1A FF A9 7D 04 8A 00 FF B1 1A 15 7D 04 8A 0A FF B4 1A
  505.             FF A9 AC D5 87 01 2E 69 74 01 8A 00 FF 9A AC D5 87 01 2E 65 74 00
  506.             8A 0A FF 99 1A FF 8E B5 B3 B0 2B 03 02 19 0E C1 1A FF A3 D9 AF 2F
  507.             8D 19 0E 8A 01 04 D9 AF 2F 8D AB AF 36 02 2F 8E 89 00 6A 00 19 0E
  508.            )
  509.       FORMAT-FLOAT-TO-STRING 0. FORMAT-PADDING #\- #\+ #\0
  510.   )  )
  511. #Y(#:TOP-LEVEL-FORM-34 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  512.    FORMAT-FLOAT-FOR-E REMOVE-OLD-DEFINITIONS
  513.    #Y(FORMAT-FLOAT-FOR-E
  514.       #396Y(00 0A 00 00 00 00 AA 6A B3 2D 00 3E 02 AC 85 A6 80 92 A8 B2 31 01
  515.             34 14 A8 6A B3 36 0B C0 EE 74 05 69 8A 89 0C 80 81 A8 30 63 14 89
  516.             0E 80 8D 00 14 B5 85 A8 80 90 00 14 89 11 80 92 00 14 8A 0E 0D 8A
  517.             12 0A 8A 10 07 AB B9 87 01 2E 80 89 8A 12 09 89 0B 04 B2 86 A8 02
  518.             7D 00 AF A9 AC BA AD 2B 05 06 3E 04 8A 16 0E AC AB 79 01 34 04 89
  519.             00 80 7F 89 01 80 8A 8A 12 08 8A 16 05 AC 85 A8 80 8E 8A 16 0C AC
  520.             D5 88 01 2E 06 AC BA B7 2B 03 05 B6 85 A8 80 83 8A 0F 80 9E C6 14
  521.             B6 2F 8D 8A 01 80 9C 1A 80 95 BF 1A FF 6F A8 6A 63 B5 31 01 31 1A
  522.             FF 78 B6 B5 6B 01 34 30 AB 1A FF 74 B4 D5 87 01 2E 70 A0 1A FF 6A
  523.             D7 B6 31 01 34 1A FF 69 14 D8 AC 31 02 34 1A FF 66 BA B7 B3 2B 03
  524.             05 19 13 7D 04 8A 01 FF 90 1A 18 7D 04 8A 12 FF 93 1A FF 88 8A 06
  525.             6C AE D5 87 01 2E 66 74 00 8A 01 FF 76 AC D5 87 01 2E 62 74 01 8A
  526.             12 FF 75 1A FF 6A 5E 16 BB B7 2B 03 05 19 17 C5 1A FF 7E DD B6 2F
  527.             8D 8A 10 27 1A 3C CA 1A 39 CB 1A 36 CC 1A 33 CD 1A 30 CE 1A 2D C5
  528.             1A 33 8A 01 04 DD B6 2F 8D AB B6 36 02 2F 8E 89 00 55 89 10 17 B6
  529.             63 0A 81 0B 55 B6 85 39 54 B6 85 3A 53 B6 85 3B 52 B6 85 3C 51 00
  530.             14 B6 2F 8D B1 85 A8 4B C6 14 B6 2F 8D 8A 14 14 14 B1 6A 63 88 01
  531.             2E 0C BC B1 6A 63 6B 01 34 DD B7 2B 03 05 B0 B6 36 02 2F 8E 19 17
  532.            )
  533.       FORMAT-SCALE-EXPONENT 0. 10. 1. 2. FORMAT-PADDING FORMAT-FLOAT-TO-STRING
  534.       #\- #\+ #\0 *READ-DEFAULT-FLOAT-FORMAT* TYPEP #\E #\s #\f #\d #\L
  535.   )  )
  536. #Y(#:TOP-LEVEL-FORM-35 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  537.    FORMAT-SKIP-TO-END REMOVE-OLD-DEFINITIONS
  538.    #Y(FORMAT-SKIP-TO-END
  539.       #35Y(00 00 00 00 00 01 1A 0C 0E 00 70 D5 A9 D6 30 53 16 01 0F 00 0E 00 70
  540.            D5 A9 D6 30 53 16 01 1B 68 00 19 01
  541.           )
  542.       *FORMAT-CSDL* CONTROL-STRING-DIRECTIVE 8.
  543.   )  )
  544. #Y(#:TOP-LEVEL-FORM-36 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  545.    FORMAT-JUSTIFIED-SEGMENTS REMOVE-OLD-DEFINITIONS
  546.    #Y(FORMAT-JUSTIFIED-SEGMENTS
  547.       #179Y(00 06 00 00 00 00 D4 D4 AB 5B 1A 24 BF 1A 39 BF 1A 3B BE 1A 80 58
  548.             5B A9 BE 58 8A 0B 80 6D 1A 80 6E 7E 01 00 7C 03 AA A9 6A 63 79 02
  549.             33 02 7A 01 A9 84 B6 6D 16 02 89 05 08 A9 D5 88 01 2B 02 96 51 14
  550.             D6 AB 89 02 45 BE 14 89 08 43 BE 14 6B 04 33 AA A9 B2 6B 02 35 6B
  551.             02 33 B3 A9 B5 87 01 2F FF B0 A9 B5 6B 01 34 B4 6A C9 B4 31 02 35
  552.             14 6B 02 33 A8 AD 6B 01 34 AB 30 C8 3E 02 8D 07 36 07 9B EE 69 1B
  553.             8A 06 FF 8E 89 0B 04 5B A9 9C 58 D4 1A 15 A9 93 57 1C 0E A9 93 57
  554.             14 6A AB A8 AB 95 58 16 01 7D 02 7C 00 AA 86 A6 67 16 01 A8 AC 3C
  555.             02 19 10
  556.            )
  557.       0. 1. -1.
  558.   )  )
  559. #Y(#:TOP-LEVEL-FORM-37 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  560.    FORMAT-ASCII REMOVE-OLD-DEFINITIONS
  561.    #Y(FORMAT-ASCII
  562.       #99Y(00 03 00 04 00 00 37 04 02 BE EE 37 03 02 BF ED 37 02 02 BE EC 37 01
  563.            1C C0 EB 89 04 1A BE EE 89 03 18 BF ED 89 02 16 BE EC 8A 01 14 1A 14
  564.            A8 B1 2F 89 19 09 8A 04 66 8A 03 68 8A 02 6A 89 01 02 C0 EB 2C 03 14
  565.            8A 07 05 89 00 02 C2 EA AD 86 A6 04 AB 85 A6 59 AD AD AD AD B2 AD 69
  566.            8C B6 2B 07 05 19 09
  567.           )
  568.       0. 1. #\Space NEXT-ARG "()" FORMAT-PADDED-STRING
  569.   )  )
  570. #Y(#:TOP-LEVEL-FORM-38 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  571.    FORMAT-S-EXPRESSION REMOVE-OLD-DEFINITIONS
  572.    #Y(FORMAT-S-EXPRESSION
  573.       #115Y(00 03 00 04 00 00 37 04 02 BE EE 37 03 02 BF ED 37 02 02 BE EC 37
  574.             01 2D C0 EB 89 04 2B BE EE 89 03 29 BF ED 89 02 27 BE EC 8A 01 25
  575.             1A 25 D8 B1 36 02 2F 8E 19 09 8A 07 03 8A 00 72 A8 B1 2F 86 19 09
  576.             C3 1A 27 8A 04 55 8A 03 57 8A 02 59 89 01 02 C0 EB 2C 03 14 AD 86
  577.             A6 04 AB 85 A6 58 AD AD AD AD B2 8A 0C 03 8A 05 59 AD 2F 8B 14 B6
  578.             2B 07 06 19 09
  579.            )
  580.       0. 1. #\Space NEXT-ARG "()" "()" FORMAT-PADDED-STRING
  581.   )  )
  582. #Y(#:TOP-LEVEL-FORM-39 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  583.    FORMAT-WRITE REMOVE-OLD-DEFINITIONS
  584.    #Y(FORMAT-WRITE
  585.       #95Y(00 03 00 04 00 00 37 04 02 BE EE 37 03 02 BF ED 37 02 02 BE EC 37 01
  586.            1E C0 EB 89 04 1C BE EE 89 03 1A BF ED 89 02 18 BE EC 8A 01 16 1A 16
  587.            A8 36 0B BC 2F 85 19 09 8A 04 64 8A 03 66 8A 02 68 89 01 02 C0 EB 2C
  588.            03 14 AD 86 A6 04 AB 85 A6 5F AD AD AD AD B2 AD 36 0B 69 8A B6 2B 07
  589.            04 19 09
  590.           )
  591.       0. 1. #\Space NEXT-ARG FORMAT-PADDED-STRING
  592.   )  )
  593. #Y(#:TOP-LEVEL-FORM-40 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  594.    FORMAT-DECIMAL REMOVE-OLD-DEFINITIONS
  595.    #Y(FORMAT-DECIMAL
  596.       #33Y(00 03 00 03 00 00 37 03 02 BE ED 37 02 02 BF EC 37 01 02 C0 EB D7 AF
  597.            AF AF AF AF AF 2B 07 04 19 07
  598.           )
  599.       0. #\Space #\, 10. FORMAT-BASE
  600.   )  )
  601. #Y(#:TOP-LEVEL-FORM-41 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  602.    FORMAT-BINARY REMOVE-OLD-DEFINITIONS
  603.    #Y(FORMAT-BINARY
  604.       #33Y(00 03 00 03 00 00 37 03 02 BE ED 37 02 02 BF EC 37 01 02 C0 EB D7 AF
  605.            AF AF AF AF AF 2B 07 04 19 07
  606.           )
  607.       0. #\Space #\, 2. FORMAT-BASE
  608.   )  )
  609. #Y(#:TOP-LEVEL-FORM-42 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  610.    FORMAT-OCTAL REMOVE-OLD-DEFINITIONS
  611.    #Y(FORMAT-OCTAL
  612.       #33Y(00 03 00 03 00 00 37 03 02 BE ED 37 02 02 BF EC 37 01 02 C0 EB D7 AF
  613.            AF AF AF AF AF 2B 07 04 19 07
  614.           )
  615.       0. #\Space #\, 8. FORMAT-BASE
  616.   )  )
  617. #Y(#:TOP-LEVEL-FORM-43 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  618.    FORMAT-HEXADECIMAL REMOVE-OLD-DEFINITIONS
  619.    #Y(FORMAT-HEXADECIMAL
  620.       #33Y(00 03 00 03 00 00 37 03 02 BE ED 37 02 02 BF EC 37 01 02 C0 EB D7 AF
  621.            AF AF AF AF AF 2B 07 04 19 07
  622.           )
  623.       0. #\Space #\, 16. FORMAT-BASE
  624.   )  )
  625. #Y(#:TOP-LEVEL-FORM-44 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  626.    FORMAT-RADIX REMOVE-OLD-DEFINITIONS
  627.    #Y(FORMAT-RADIX
  628.       #117Y(00 03 00 04 00 00 39 04 37 03 02 BE ED 37 02 02 BF EC 37 01 80 41
  629.             C0 EB 89 03 3F BE ED 89 02 3D BF EC 8A 01 3B 1A 3B 14 AD AD AD B3
  630.             B3 AE B7 2B 08 04 19 09 A8 B1 2E 05 19 09 89 07 77 A8 B1 2E 06 19
  631.             09 A8 85 35 73 63 07 5B DC AB 2B 04 09 19 09 A8 B1 2E 0A 19 09 8A
  632.             03 41 8A 02 43 89 01 02 C0 EB 2C 03 14 89 05 FF BE 89 06 57 89 07
  633.             62 A8 B1 2E 0B 19 09
  634.            )
  635.       0. #\Space #\, NEXT-ARG FORMAT-INTEGER FORMAT-OLD-ROMAN FORMAT-NEW-ROMAN
  636.       *FORMAT-CS*
  637.       "The ~~R and ~~:R directives require an integer argument, not ~S"
  638.       FORMAT-ERROR FORMAT-ORDINAL FORMAT-CARDINAL
  639.   )  )
  640. #Y(#:TOP-LEVEL-FORM-45 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  641.    FORMAT-PLURAL REMOVE-OLD-DEFINITIONS
  642.    #Y(FORMAT-PLURAL
  643.       #49Y(00 03 00 00 00 04 8A 02 04 5C D4 2E 01 2C 02 14 BE 52 14 89 02 0C 89
  644.            00 15 D9 AD 2F 8D 19 05 C1 1A 04 89 00 7A C2 14 AD 36 02 2F 8E 19 05
  645.            00 19 05
  646.           )
  647.       1. FORMAT-GOTO-NEW-ARG NEXT-ARG "y" "ies" #\s
  648.   )  )
  649. #Y(#:TOP-LEVEL-FORM-46 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  650.    FORMAT-CHARACTER REMOVE-OLD-DEFINITIONS
  651.    #Y(FORMAT-CHARACTER
  652.       #185Y(00 03 00 00 00 04 00 29 01 76 04 00 00 2C 00 14 A8 85 43 08 63 01
  653.             5B D6 AB 2B 04 03 A9 65 04 01 8A 04 09 8A 05 3F DC DD 5B 1A 80 66
  654.             D9 5B 1A 26 00 1A 18 7E 01 00 AB A9 84 32 19 A8 6A A0 36 02 69 4D
  655.             60 05 00 36 01 89 0A 66 C4 14 2F 8E DB 60 05 00 2F 8D 7A 01 A9 84
  656.             B6 59 16 02 A9 36 02 69 2A 93 32 19 07 A9 60 03 00 2F 86 19 07 71
  657.             60 04 00 36 02 2F 8E 19 08 7E 01 00 AC A9 84 32 0F 8B 02 60 06 00
  658.             36 02 2F 8E AC A9 5B 77 33 04 7A 02 7A 01 A9 84 B6 61 16 03 A9 DE
  659.             36 03 69 E3 89 00 4C AA DF 84 32 0E E0 60 04 00 36 02 2F 8E AA DF
  660.             5B 77 33 02 AA 94 32 19 08
  661.            )
  662.       NEXT-ARG *FORMAT-CS*
  663.       "The ~~C directive requires a character argument, not ~S" FORMAT-ERROR
  664.       #Y(FORMAT-CHARACTER-WRITE-CHARNAME
  665.          #34Y(00 01 00 00 00 02 A9 69 31 89 00 08 AA 61 00 00 2F 8D 19 03 14 36
  666.               02 69 4D 61 00 00 36 02 2F 8E 19 03
  667.              )
  668.          NIL
  669.         )
  670.       (:CONTROL :META :SUPER :HYPER) 1. #\- ("Shift-" "Control-" "Alternate-")
  671.       (:SUPER :CONTROL :META)
  672.       ((#\HYPER-Return . "Enter") (#\HYPER-\⓪ . "Insert") (#\HYPER-\① . "End")
  673.        (#\HYPER-\② . "⇩") (#\HYPER-\③ . "PgDn") (#\HYPER-\④ . "⇦")
  674.        (#\HYPER-\⑥ . "⇨") (#\HYPER-\⑦ . "Clr/Home") (#\HYPER-\⑧ . "⇧")
  675.        (#\HYPER-\⑨ . "PgUp") (#\HYPER-\ . "Help") (#\HYPER-\ . "Undo")
  676.        (#\HYPER- . "Delete") (#\HYPER-A . "F1") (#\HYPER-B . "F2")
  677.        (#\HYPER-C . "F3") (#\HYPER-D . "F4") (#\HYPER-E . "F5")
  678.        (#\HYPER-F . "F6") (#\HYPER-G . "F7") (#\HYPER-H . "F8")
  679.        (#\HYPER-I . "F9") (#\HYPER-J . "F10") (#\HYPER-K . "F11")
  680.        (#\HYPER-L . "F12")
  681.       )
  682.       :HYPER "Keypad-"
  683.   )  )
  684. #Y(#:TOP-LEVEL-FORM-47 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  685.    FORMAT-FIXED-FLOAT REMOVE-OLD-DEFINITIONS
  686.    #Y(FORMAT-FIXED-FLOAT
  687.       #76Y(00 03 00 05 00 00 39 05 39 04 37 03 02 BE ED 39 02 37 01 19 BF EB 89
  688.            03 17 BE ED 8A 01 15 1A 15 AE AE AE AE AE B4 AE B8 2B 08 03 19 0A 8A
  689.            03 69 89 01 02 BF EB 2C 02 14 A8 86 37 06 A8 36 01 78 C3 00 A8 85 38
  690.            5A A8 B2 2E 04 19 0A
  691.           )
  692.       0. #\Space NEXT-ARG FORMAT-FLOAT-FOR-F FORMAT-ASCII-DECIMAL
  693.   )  )
  694. #Y(#:TOP-LEVEL-FORM-48 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  695.    FORMAT-EXPONENTIAL-FLOAT REMOVE-OLD-DEFINITIONS
  696.    #Y(FORMAT-EXPONENTIAL-FLOAT
  697.       #85Y(00 03 00 07 00 00 39 07 39 06 39 05 37 04 02 BE EE 39 03 37 02 02 BF
  698.            EC 37 01 1B 74 01 89 04 19 BE EE 8A 02 17 1A 17 B0 B0 B0 B0 B0 B0 B0
  699.            B8 B0 BC 2B 0A 03 19 0C 8A 04 67 89 02 02 BF EC 2C 02 14 A8 86 37 06
  700.            A8 36 01 78 C3 00 A8 85 38 58 A8 B4 2E 04 19 0C
  701.           )
  702.       1. #\Space NEXT-ARG FORMAT-FLOAT-FOR-E FORMAT-ASCII-DECIMAL
  703.   )  )
  704. #Y(#:TOP-LEVEL-FORM-49 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  705.    FORMAT-GENERAL-FLOAT REMOVE-OLD-DEFINITIONS
  706.    #Y(FORMAT-GENERAL-FLOAT
  707.       #188Y(00 03 00 07 00 00 39 07 39 06 39 05 37 04 02 BE EE 39 03 37 02 02
  708.             BF EC 37 01 80 7F 74 01 89 04 80 7D BE EE 8A 02 80 7A 1A 80 79 AA
  709.             6A B3 01 04 2B 05 04 3E 02 8E 00 D4 6B 01 31 AB D9 6B 01 32 31 01
  710.             31 16 02 F3 8A 08 34 DA B1 31 02 33 1A 2E 14 AA 31 01 34 1A 04 89
  711.             0C 76 00 14 A9 DC B3 B3 BA B2 5E 16 2B 08 09 A9 D5 B9 2B 03 0A 19
  712.             10 A8 6A B3 2D 03 3E 02 8A 09 FF B1 89 08 4C C5 14 B2 AA 6B 01 34
  713.             DC A9 B5 87 02 2F 4C B4 B4 B4 B4 B4 B4 B4 BC B4 5E 18 2B 0A 0B 19
  714.             10 8A 04 FF 83 89 02 02 BF EC 2C 02 14 A8 86 37 06 A8 36 01 78 C3
  715.             00 A8 85 38 FF B9 A8 B4 2E 0C 19 0C
  716.            )
  717.       1. #\Space NEXT-ARG FORMAT-SCALE-EXPONENT FORMAT-FLOAT-TO-STRING 7. 2. 4.
  718.       0. FORMAT-FLOAT-FOR-F FORMAT-PADDING FORMAT-FLOAT-FOR-E
  719.       FORMAT-ASCII-DECIMAL
  720.   )  )
  721. #Y(#:TOP-LEVEL-FORM-50 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  722.    FORMAT-DOLLARS-FLOAT REMOVE-OLD-DEFINITIONS
  723.    #Y(FORMAT-DOLLARS-FLOAT
  724.       #184Y(00 03 00 04 00 00 37 04 02 BE EE 37 03 02 BF ED 37 02 02 C0 EC 37
  725.             01 1D C1 EB 89 04 1B BE EE 89 03 19 BF ED 89 02 17 C0 EC 8A 01 15
  726.             1A 15 BF 1A 3C C5 1A 80 59 8A 04 65 8A 03 67 8A 02 69 89 01 02 C1
  727.             EB 2C 04 14 A8 86 37 06 A8 36 01 78 C3 00 A8 86 38 80 5D A8 5B AF
  728.             D6 5B 2B 05 05 3E 05 A8 B2 6B 01 31 D5 89 0D 46 AF 85 A8 42 C0 14
  729.             AA B6 6B 04 33 B2 A9 6B 01 34 D6 6B 01 31 89 0F 06 A8 B3 BA 2B 03
  730.             06 B0 85 A8 FF A7 8A 0E 0A C6 14 B9 2F 8D 8A 0F 0B 1A 03 8A 0F 06
  731.             A8 B3 BA 2B 03 06 AA AC 6B 01 34 DD BA 2B 03 06 AF B9 36 02 2F 8E
  732.             19 11 A8 B1 2E 0A 19 09
  733.            )
  734.       2. 1. 0. #\Space NEXT-ARG FORMAT-FLOAT-TO-STRING FORMAT-PADDING #\- #\+
  735.       #\0 FORMAT-ASCII-DECIMAL
  736.   )  )
  737. #Y(#:TOP-LEVEL-FORM-51 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  738.    FORMAT-TERPRI REMOVE-OLD-DEFINITIONS
  739.    #Y(FORMAT-TERPRI
  740.       #38Y(00 03 00 01 00 0A 37 01 07 BE EB 8A 01 05 1A 05 89 01 02 BE EB D5 1A
  741.            05 AD 2F 90 7C 00 A8 AB 88 01 30 75 00 19 06
  742.           )
  743.       1. 0.
  744.   )  )
  745. #Y(#:TOP-LEVEL-FORM-52 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  746.    FORMAT-FRESH-LINE REMOVE-OLD-DEFINITIONS
  747.    #Y(FORMAT-FRESH-LINE
  748.       #50Y(00 03 00 01 00 0A 37 01 1D BE EB 8A 01 1B 1A 1B AC 2F 91 D5 8E 02 1A
  749.            05 AE 2F 90 7C 01 A9 A9 88 01 30 75 00 19 07 89 01 02 BE EB A9 85 A7
  750.            61 00 19 05
  751.           )
  752.       1. 0.
  753.   )  )
  754. #Y(#:TOP-LEVEL-FORM-53 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  755.    FORMAT-PAGE REMOVE-OLD-DEFINITIONS
  756.    #Y(FORMAT-PAGE
  757.       #39Y(00 03 00 01 00 0A 37 01 07 BE EB 8A 01 05 1A 05 89 01 02 BE EB D5 1A
  758.            06 D6 AE 2F 8D 7C 00 A8 AB 88 01 30 74 00 19 06
  759.           )
  760.       1. 0. #\Page
  761.   )  )
  762. #Y(#:TOP-LEVEL-FORM-54 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  763.    FORMAT-TILDE REMOVE-OLD-DEFINITIONS
  764.    #Y(FORMAT-TILDE
  765.       #39Y(00 03 00 01 00 0A 37 01 07 BE EB 8A 01 05 1A 05 89 01 02 BE EB D5 1A
  766.            06 D6 AE 2F 8D 7C 00 A8 AB 88 01 30 74 00 19 06
  767.           )
  768.       1. 0. #\~
  769.   )  )
  770. #Y(#:TOP-LEVEL-FORM-55 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  771.    FORMAT-TABULATE REMOVE-OLD-DEFINITIONS
  772.    #Y(FORMAT-TABULATE
  773.       #106Y(00 03 00 02 00 0F 37 02 02 BE EC 37 01 22 BE EB 89 02 20 BE EC 8A
  774.             01 1E 1A 1E AA A9 AC 6B 02 33 6B 00 34 95 1A 36 AA A9 31 01 34 1A
  775.             35 00 19 09 8A 02 60 89 01 02 BE EB AA D5 6B 01 31 AA D4 6B 01 31
  776.             AF 69 95 89 06 52 A8 AB 87 01 2D 58 AC 85 A6 5B AC AB AA 6B 01 34
  777.             AE 31 00 34 14 6A CC 31 02 33 14 D6 B2 2B 03 03 19 09
  778.            )
  779.       1. 0. #\Space FORMAT-PADDING
  780.   )  )
  781. #Y(#:TOP-LEVEL-FORM-56 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  782.    FORMAT-GOTO REMOVE-OLD-DEFINITIONS
  783.    #Y(FORMAT-GOTO
  784.       #40Y(00 03 00 01 00 0A 37 01 12 74 01 8A 02 10 89 01 01 BE 14 63 01 2F C4
  785.            0F 02 19 05 89 02 70 AB 89 02 01 C1 14 2E 04 19 05
  786.           )
  787.       0. *FORMAT-ARG-LIST* *FORMAT-NEXT-ARG* 1. FORMAT-GOTO-NEW-ARG
  788.   )  )
  789. #Y(#:TOP-LEVEL-FORM-57 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  790.    FORMAT-INDIRECTION REMOVE-OLD-DEFINITIONS
  791.    #Y(FORMAT-INDIRECTION
  792.       #89Y(00 03 00 00 00 04 2C 00 14 A8 85 2E 08 63 01 5B D6 AB 2B 04 03 A8 73
  793.            01 A9 D8 AA 5B 2B 04 05 89 03 26 2C 00 14 A8 85 34 08 63 01 5B DD AB
  794.            2B 04 03 93 53 10 01 96 54 10 06 98 10 0A 0E 0A 10 0B BA 2D 08 11 12
  795.            03 19 07 8B 00 93 54 10 06 00 10 07 98 10 01 B7 2D 08 1A 6B
  796.           )
  797.       NEXT-ARG *FORMAT-CS*
  798.       "The control string argument for the ~~? directive is invalid: ~S"
  799.       FORMAT-ERROR 0. FORMAT-PARSE-CS *FORMAT-CSDL* *FORMAT-UP-AND-OUT*
  800.       FORMAT-INTERPRET
  801.       "The argument list argument for the ~~? directive is invalid: ~S"
  802.       *FORMAT-ARG-LIST* *FORMAT-NEXT-ARG*
  803.   )  )
  804. #Y(#:TOP-LEVEL-FORM-58 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  805.    FORMAT-CASE-CONVERSION REMOVE-OLD-DEFINITIONS
  806.    #Y(FORMAT-CASE-CONVERSION
  807.       #103Y(00 03 00 00 00 04 0E 00 54 0F 00 AB 69 95 6A 8B A8 D5 2E 02 A8 78
  808.             8C 00 89 03 17 89 02 1E A8 36 02 2F 4A 14 AD 36 02 2F 8E 19 05 A8
  809.             36 02 2F 48 1A 71 89 02 76 A8 36 02 2F 4C 1A 67 A8 36 02 77 4A 00
  810.             D7 A9 6A 63 1A 02 7C 01 A9 A9 87 01 30 11 AA AA 69 35 84 23 71 AA
  811.             AA AC AC 69 35 69 2C 2F 37 16 02 92 1A FF BC
  812.            )
  813.       *FORMAT-CSDL* FORMAT-CASE-CONVERSION-END FORMAT-INTERPRET 0.
  814.   )  )
  815. #Y(#:TOP-LEVEL-FORM-59 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  816.    FORMAT-CONDITIONAL REMOVE-OLD-DEFINITIONS
  817.    #Y(FORMAT-CONDITIONAL
  818.       #181Y(00 03 00 01 00 0A 37 01 24 74 01 8A 03 22 89 02 12 2C 03 1C 27 0E
  819.             04 70 D9 A9 DA 30 53 16 01 0F 04 1A 19 63 00 5B D5 2B 03 02 1A 80
  820.             84 89 03 5E 8A 02 19 2C 03 1C 80 79 5C DD 2E 0A 0E 04 54 0F 04 AC
  821.             DB 2E 08 1A 80 69 E1 1A 80 46 89 01 02 2C 03 14 A8 85 35 08 63 00
  822.             5B DF AB 2B 04 02 E0 A9 85 A8 65 A9 1A 2C 16 02 1A 30 16 02 1A 2C
  823.             0E 04 70 D9 A9 E2 78 53 00 23 07 6C 0E 04 70 D9 A9 DA 30 53 16 01
  824.             0F 04 70 D9 A9 E3 30 53 16 01 1B 5A 7C 01 A9 A9 88 01 30 56 16 02
  825.             0E 04 70 D9 A9 E2 78 53 00 23 07 05 0E 04 54 0F 04 AD DB 2E 08 16
  826.             01 2C 10 19 05
  827.            )
  828.       *FORMAT-CS* "The ~~[ directive cannot take both modifiers." FORMAT-ERROR
  829.       NEXT-ARG *FORMAT-CSDL* CONTROL-STRING-DIRECTIVE 8. FORMAT-CONDITIONAL-END
  830.       FORMAT-INTERPRET 1. FORMAT-GOTO-NEW-ARG
  831.       "The ~~[ parameter must be an integer, not ~S" 0. #.MOST-POSITIVE-FIXNUM
  832.       7. 5. FORMAT-SKIP-TO-END
  833.   )  )
  834. #Y(#:TOP-LEVEL-FORM-60 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  835.    FORMAT-ITERATION REMOVE-OLD-DEFINITIONS
  836.    #Y(FORMAT-ITERATION
  837.       #257Y(00 03 00 01 00 0A 39 01 63 00 2C 01 0E 00 70 D6 A9 D7 78 53 00 8C
  838.             01 0E 00 21 80 5F 0E 05 14 8C 02 0E 00 21 80 5A 94 54 14 8A 06 80
  839.             70 00 14 DA 8A 07 07 A8 B0 87 01 30 80 C4 89 08 80 6A 93 14 8A 05
  840.             80 B6 A9 85 A7 80 64 16 01 1B 80 B0 89 09 80 66 89 08 80 81 93 10
  841.             0B 0E 0B 10 0A 9B 10 05 9D 10 00 00 10 0C 5E 19 E1 2E 0E 0E 0A FA
  842.             63 0C 24 0F 80 79 00 12 02 12 03 19 0B 2C 04 1A FF 9E A8 73 01 A9
  843.             DA AA 5B 2B 04 07 92 54 16 01 1A FF 97 63 05 5B DC AB 2B 04 09 15
  844.             1A FF 91 2C 04 14 A8 86 34 6D 15 1A FF 86 0E 0A 1A FF 92 15 1C 80
  845.             4D 1A FF 9A 2C 04 1A 08 89 08 79 8B 01 7A 02 15 10 0B 0E 0B 10 0A
  846.             9B 10 05 9D 10 00 00 10 0C 5E 19 E1 2E 0E 1A FF 97 95 10 05 97 10
  847.             00 00 10 0C BB E1 2E 0E 63 0C 24 0F 06 00 1A FF 8A 12 02 12 03 7C
  848.             00 8A 07 FF 43 1A FF 39 15 1B FF 50 00 19 0B
  849.            )
  850.       *FORMAT-CSDL* FORMAT-SKIP-TO-END CONTROL-STRING-DIRECTIVE 5. NEXT-ARG
  851.       *FORMAT-CS* 0. FORMAT-PARSE-CS
  852.       "The ~~{ directive requires a list argument, not ~S" FORMAT-ERROR
  853.       *FORMAT-NEXT-ARG* *FORMAT-ARG-LIST* *FORMAT-UP-AND-OUT*
  854.       FORMAT-ITERATION-END FORMAT-INTERPRET :TERMINATE-ALL
  855.   )  )
  856. #Y(#:TOP-LEVEL-FORM-61 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  857.    FORMAT-JUSTIFICATION REMOVE-OLD-DEFINITIONS
  858.    #Y(FORMAT-JUSTIFICATION
  859.       #275Y(00 03 00 04 00 00 37 04 02 BE EE 37 03 02 BF ED 37 02 02 BE EC 37
  860.             01 16 C0 EB 89 04 14 BE EE 89 03 12 BF ED 89 02 10 BE EC 8A 01 0E
  861.             1A 0E 8A 04 6C 8A 03 6E 8A 02 70 89 01 02 C0 EB 63 03 B0 69 95 A8
  862.             6A 8B 01 04 5C 1A 80 A4 0E 03 70 2D 0B 40 3E 02 62 06 62 06 0E 07
  863.             1C 80 8B 9C 0F 03 2C 0C 11 16 01 1A 80 97 92 54 1A 80 9B B4 B4 B4
  864.             B9 B9 AD 2B 06 0D 3E 02 8A 06 1A B0 A9 89 07 01 BE 14 6B 03 33 89
  865.             05 01 CC 14 88 01 2E 07 8B 03 BA 36 02 2F 8E D4 1A 17 AA 93 57 14
  866.             B5 BC 2B 03 0F 8A 03 13 8B 03 7A 04 BB 36 02 2F 8E 7C 00 AA 93 57
  867.             1B 64 89 03 6D 00 19 13 0E 03 54 0F 03 00 10 07 B0 DA 2E 08 8A 03
  868.             1A 0E 03 70 D8 A9 D9 78 53 00 24 09 0E 0E 03 70 D8 A9 DE 30 53 16
  869.             01 F1 1B FF 69 0E 07 1B FF 75 B0 6A 8C 7B 04 11 74 00 0E 03 70 D8
  870.             A9 D9 78 53 00 24 06 FF BD 16 01 A8 78 65 00 89 03 FF 61 92 14 89
  871.             00 FF 60 B4 B2 B9 2B 03 0F 19 10
  872.            )
  873.       0. 1. #\Space *FORMAT-CSDL* CONTROL-STRING-DIRECTIVE 7.
  874.       FORMAT-JUSTIFICATION-END *FORMAT-UP-AND-OUT* FORMAT-INTERPRET
  875.       FORMAT-SEPARATOR 5. FORMAT-RESOLVE-PARMS FORMAT-SKIP-TO-END
  876.       FORMAT-JUSTIFIED-SEGMENTS 72. FORMAT-PADDING
  877.   )  )
  878. #Y(#:TOP-LEVEL-FORM-62 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  879.    FORMAT-UP-AND-OUT REMOVE-OLD-DEFINITIONS
  880.    #Y(FORMAT-UP-AND-OUT
  881.       #113Y(00 03 00 03 00 00 39 03 39 02 37 01 21 74 01 8A 03 1F 1A 23 0E 00
  882.             1C 80 46 1A 80 52 AB 24 01 80 4D 1A 3C AB AB 86 28 80 45 1A 34 C0
  883.             1A 35 89 03 06 89 02 03 8A 01 5D 89 02 03 8A 01 5F 8A 01 63 AB 86
  884.             35 08 AA 86 35 04 A9 85 35 1B AB 86 43 1E AA 86 43 1A A9 86 43 16
  885.             AB AB AB 88 02 0B 0F 89 05 49 C1 0F 04 19 07 AB AB AB 87 02 2F 71
  886.             00 19 07
  887.            )
  888.       *FORMAT-NEXT-ARG* 0. :TERMINATE-ALL :TERMINATE *FORMAT-UP-AND-OUT*
  889.   )  )